home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MAJOR / Process / sort-tonality < prev    next >
Encoding:
Text File  |  1998-10-23  |  875 b   |  21 lines  |  [TEXT/ScoM]
  1. sort-tonality tonality-list
  2.  
  3. This function sorts the tonality. Let's first fold a tonality which results in tonalities that have notes in a mixed order.
  4.  
  5. (fold-tonality 
  6.   'a 5 (symbols-to-tonality
  7.         symbols '(a b c d e f g h)
  8.         transpose '((0 2 4))
  9.         mapping (activate-tonality (messiaen6 c 5))))
  10. --> ((c 5 e 5 |F#| 5) (d 5 f 5 |G#| 5) (e 5 |F#| 5 |A#| 4) (f 5 |G#| 5 b 4) (|F#| 5 |A#| 4 c 5) (|G#| 5 b 4 d 5) (|A#| 4 c 5 e 5) (b 4 d 5 f 5))
  11.  
  12. Sort-tonality creates a new tonality where all the notes appear in lower..higher order.
  13.  
  14. (sort-tonality
  15.  (fold-tonality 
  16.   'a 5 (symbols-to-tonality
  17.         symbols '(a b c d e f g h)
  18.         transpose '((0 2 4))
  19.         mapping (activate-tonality (messiaen6 c 5)))))
  20. --> ((c 5 e 5 |F#| 5) (d 5 f 5 |G#| 5) (|A#| 4 e 5 |F#| 5) (b 4 f 5 |G#| 5) (|A#| 4 c 5 |F#| 5) (b 4 d 5 |G#| 5) (|A#| 4 c 5 e 5) (b 4 d 5 f 5))
  21.